home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / PSPATH.ARC / GEOPUBLASER 1.0 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  24.9 KB  |  136 lines
  1. GEOPUBLASER 1.0
  2. SEQ formatted GEOS file V1.0
  3. EPSON FX-80 (GC)
  4. OP V2.0 or higherSER 1.8
  5. GEOPUBLASER 1.0
  6. BLASTER'S CONVERTER V2.5
  7. GEOPUBLASER V1.0
  8. @Tony Requist
  9.     GEOPUBLASER prints geoPublish documents on the LaserWriter printer.
  10. HJJJJ 
  11. Error I:   
  12. *0$j,V
  13. * ;    h
  14. `8` k
  15.  a& g&
  16.  a& !% g& 
  17. saveobj restore
  18.  %,6>G"###########
  19. CHLQ$$$$
  20. /#copies exch def gsave showpage grestore
  21. erasepage
  22. `$z0`
  23. .H B     
  24. H x"h
  25.  LE) 
  26. ` e!L
  27.      |!h
  28. )?L_!
  29. HJJJJ h"h)
  30.  JJJJ
  31. January
  32. February
  33. March
  34. April
  35. August
  36. September
  37. October
  38. November
  39. December
  40. Print...
  41. Smoothing
  42. Thumbnails
  43. From Page
  44. To Page
  45. Copies
  46. Reduce to
  47. geoPubLaser
  48. Current file: 
  49. Initializing LaserWriter...
  50. Publish Doc
  51. Insert new disk into disk drive.
  52. Data file is beyond V1.0
  53. On disk:
  54. opening file
  55.  Printing...
  56. `0 setgray
  57.      F% o%
  58.  V$`h`
  59. ` ^0Lj& }0
  60. & S0h
  61. '''''
  62. `DEFI
  63.  r( !-` 
  64. 2 S0 
  65.  _!h _!
  66. setlinejoin setlinecap
  67. `8`setlinewidth
  68.     `8 div setgray
  69. ( P) 
  70. 1H >+h
  71. h >+h
  72. h ]"h
  73. Ci _!
  74. Bi _! 
  75. <i _!
  76. LA.PSC
  77. H \/hL
  78.       0 )1 Q1
  79. H ^0 Q1h
  80. ki @5 
  81. Mi /5
  82.  JJJJ
  83. Ai)@J    
  84.  b7 w7 b7
  85. IiJJJ
  86. .Ji(nKi
  87. H V: 
  88. 9 o9 
  89. < 9< 
  90. =  =L
  91. ` d; 
  92. ) 0* 
  93. > >+ E)
  94. nYinXinWi
  95.  H '? 
  96. dGEOPUBLASER V1.0
  97. f ,f 
  98. H MehH heh
  99. geoPubLaser
  100. Copyright 1987 Berkeley Softworks
  101. Choose RS-232 Serial Transfer Rate
  102. 1200 Baud (Blanks Screen)
  103. 9600 Baud (Blanks Screen)
  104. k|72 80 div 80 80 div scale 0.25 80 mul 18 translate /ps 1 string def/rs 256 string def statu72 80 div 80 80 div scale 0.25 80 mul 18 translate /ps 1 string def/rs 256 string def statusdict begin /waittimeout 370 def end /PS{mG/PSf exch def/PSj exch def/PSc exch def/PSs 0 def PSj 0 ne{PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt index dup cS PSs add/PSs exch def stringwidth pop PSf exch sub/PSf exch def}for}if
  105. PSj 3 eq{/PSs PSs 0 eq{1}{PSf PSs div}ifelse def}{/PSs 0 def}ifelse PSj 2 eq{PSf 0 rmoveto}if PSj 1 eq{PSf 2 idiv 0 rmoveto}if
  106. PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt 1 add index/PSb exch def 0 PSb neg rmoveto PSt index PSs 0 32 4 -1 roll currentpoint pop/PSx exch def widthshow curFont 128 and 0 ne{gsave currentpoint newpath moveto currentfont begin matrix currentmatrix FontMatrix concat FontInfo begin 0 UnderlinePosition rmoveto UnderlineThickness 0 FontMatrix transform pop setlinewidth end end setmatrix currentpoint pop PSx exch sub 0 rlineto stroke grestore}if 0 PSb rmoveto}for PSc 4 mul{pop}repeat}def
  107. /cS{/cSt 0 def{32 eq{/cSt cSt 1 add def}if}forall cSt}def
  108. /sF{/MSFsize exch def dup 63 and /MSFforeign exch def /MSFfont exch def curSize MSFsize ne curFont 65407 and MSFfont 65407 and ne or {fonts MSFfont -8 bitshift get MSFfont 64 and 0 ne{/sFf mO/sFf}if MSFforeign 0 ne MSFfont -10 bitshift 2 ne and {/sFx MSFforeign mF /sFx }if findfont MSFsize scalefont setfont}if/curFont MSFfont def/curSize MSFsize def}def
  109. /mOd 5 dict def/mO{mOd begin/mOn exch def/mO1 exch def/mO2 mO1 findfont def/mOo mO2 maxlength 1 add dict def mO2{exch dup/FID ne{exch mOo 3 1 roll put}{pop pop}ifelse}forall mOo/FontName mOn put mOo/PaintType 2 put mOo/StrokeWidth 0 put mOn mOo definefont pop end}def
  110. /mF{/mfT exch def exch findfont dup length dict /newdict exch def {1 index /FID ne {newdict 3 1 roll put} {pop pop} ifelse }forall newdict /Encoding mfT 0 eq {AmC}{mfT 1 eq {GeC}{mfT 2 eq {FrC}{mfT 3 eq {DaC}{mfT 4 eq {ItC}{mfT 5 eq {SwC}{mfT 6 eq {SpC}{mfT 7 eq {UkC}{mfT 8 eq {DaC}{mfT 9 eq {DaC}{SeC}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse put newdict definefont pop }def
  111. /mG{gG moveto}def/gG{751 exch sub }def
  112. /gS{currentfile ps readhexstring pop}def/PC{gsave/PCi exch def/PCt exch def/PCs exch def gG translate/PCy exch def/PCx exch def/PCf exch def 0 1 translate PCf 0 ne{PCy 2 div 0 translate}if PCy PCt div PCs mul dup PCx ge{pop PCx}if PCy scale PCs PCt true[PCs 0 0 PCt neg 0 PCi]PCf 0 ne{[1 0 0.57735 1 0 0]matrix concatmatrix}if{gS}imagemask grestore}def
  113. /PP{gsave dR clip newpath gG translate/PPdy exch def/PPdx exch def/PPsy exch def/PPsx exch def 0 PPdy neg translate/PPs 0 def/PPp 0 def PPdx PPdy scale PPsx PPsy true[PPsx 0 0 PPsy neg 0 PPsy]{PPD}imagemask grestore{currentfile read{32 eq{exit}if}{exit}ifelse}loop}def
  114. /PPD{{PPs 127 and 0 eq{/PPs PPG def PPs 220 ge{/PPb PPs 220 sub def/PPc PPb def/PPp PPG def/PPf true def/PPs 0 def}{PPs 128 lt{/PPr PPG def}if}ifelse}{exit}ifelse}loop PPs 128 ge{PPG}{PPr}ifelse/PPs PPs 1 sub def/PPt exch def ps 0 PPt put ps}def
  115. /PPG{PPp 0 ne{PPf{rs PPc gS 0 get put}if rs PPc get/PPc PPc 1 sub def PPc 0 eq{/PPp PPp 1 sub def/PPf false def/PPc PPb def}if}{gS 0 get}ifelse}def
  116. /GC4{gG/y2 exch def/x2 exch def GC2}def
  117. /GC2{gG/y1 exch def/x1 exch def}def
  118. /DL{GC4 newpath x1 y1 moveto x2 y2 lineto x1 y1 moveto closepath stroke }def
  119. /DCL1{GC2 /x3 x1 def /y3 y1 def newpath x1 y1 moveto }def
  120. /DCL2{GC2 x1 y1 lineto }def
  121. /DCL3{0 eq {x3 y3 moveto}{x3 y3 lineto}ifelse closepath stroke}def
  122. /DRF{dR fill}def
  123. /DRS{dR stroke}def
  124. /dR{GC4 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath }def
  125. /DEFI{dE fill grestore}def
  126. /DES{dE stroke grestore}def
  127. /dE{gsave GC4 newpath x1 x2 eq y1 y2 eq or{x1 y1 moveto x2 y2 lineto}{x1 x2 add 2 div y1 y2 add 2 div translate/xsc x1 x2 sub abs 200 div def/ysc y1 y2 sub abs 200 div def xsc ysc scale currentlinewidth xsc ysc add 2 div div setlinewidth 0 0 100 0 360 arc}ifelse closepath}def
  128. /DCT{newpath gG/y3 exch def/x3 exch def gG/y2 exch def/x2 exch def gG/y1 exch def/x1 exch def gG/y0 exch def/x0 exch def x0 y0 moveto x1 y1 x2 y2 x3 y3 curveto x0 y0 moveto closepath stroke}def
  129. /PSC{sF gsave dR clip newpath /PSCjust exch def /PSCorient exch def /PSCbottom exch def /PSCright exch def /PSCtop exch def /PSCleft exch def 0 0 moveto (AG$(){}?) false charpath flattenpath pathbbox exch pop exch pop exch pop PSCorient 0 eq{PSCleft PSCtop mG/PSCwidth PSCright PSCleft sub def}{/PSCwidth PSCbottom PSCtop sub def PSCorient 1 eq{PSCleft PSCbottom mG 90 rotate}{PSCright PSCtop mG 270 rotate}ifelse}ifelse neg 0 exch rmoveto dup stringwidth pop dup /PSx exch def PSCwidth exch sub dup 0 lt {pop 0} if PSCjust mul 2 div 0 rmoveto show curFont 128 and 0 ne{currentpoint newpath moveto currentfont begin matrix currentmatrix FontMatrix concat FontInfo begin 0 UnderlinePosition rmoveto UnderlineThickness 0 FontMatrix transform pop setlinewidth end end setmatrix PSx neg 0 rlineto closepath stroke }if grestore }def
  130. /SC{newpath 0 0 moveto 640 0 lineto 640 752 lineto 0 752 lineto closepath clip }def
  131. /EB{1 setlinewidth gsave eofill clippath 0 -2 moveto 640 -2 lineto 640 754 lineto 0 754 lineto closepath 1 setgray fill grestore 0.5 setlinewidth newpath 0.25 0 moveto 0.25 -2 lineto 2.25 -2 lineto 638.75 0 moveto 638.75 -2 lineto 636.75 -2 lineto 638.75 751 moveto 638.75 753 lineto 636.75 753 lineto 0.25 751 moveto 0.25 753 lineto 2.25 753 lineto 0 setgray stroke }def
  132. /STP{dup 4 mod .25 mul .015 add 640 mul .22 div exch 4 idiv .25 mul .015 add -752 mul .22 div translate gsave 0 setgray newpath -4 -4 moveto 643 -4 lineto 643 755 lineto -4 755 lineto closepath stroke grestore}def
  133. /PI{/saveobj save def 100 div /PIt exch def 1 PIt sub 72 10.5 mul mul 0 exch translate PIt dup scale 72 10.5 mul PIt div mul exch -80 8 mul PIt div mul exch translate /curFont -1 def/curSize -1 def}def
  134. /fonts[/Times-Roman/Times-Bold/Times-Italic/Times-BoldItalic/Helvetica/Helvetica-Bold/Helvetica-Oblique/Helvetica-BoldOblique/Symbol/Symbol/Symbol/Symbol/Courier/Courier-Bold/Courier-Oblique/Courier-BoldOblique/AvantGarde-Book/AvantGarde-Demi/AvantGarde-BookOblique/AvantGarde-DemiOblique/Bookman-Light/Bookman-Demi/Bookman-LightItalic/Bookman-DemiItalic/Helvetica-Narrow/Helvetica-Narrow-Bold/Helvetica-Narrow-Oblique/Helvetica-Narrow-BoldOblique/NewCenturySchlbk-Roman/NewCenturySchlbk-Bold/NewCenturySchlbk-Italic/NewCenturySchlbk-BoldItalic/Palatino-Roman/Palatino-Bold/Palatino-Italic/Palatino-BoldItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfDingbats/ZapfDingbats/ZapfDingbats/ZapfDingbats]def
  135. /AmC 256 array def systemdict begin StandardEncoding AmC copy pop end /GeC 256 array def AmC GeC copy pop/FrC 256 array def AmC FrC copy pop/ItC 256 array def AmC ItC copy pop/SwC 256 array def AmC SwC copy pop/SpC 256 array def AmC SpC copy pop/UkC 256 array def AmC UkC copy pop/DaC 256 array def AmC DaC copy pop/SeC 256 array def AmC SeC copy pop GeC 64 /section put GeC 91 /Adieresis put GeC 92 /Odieresis put GeC 93 /Udieresis put GeC 123 /adieresis put GeC 124 /odieresis put GeC 125 /udieresis put GeC 126 /germandbls put FrC 64 /agrave put FrC 91 /degree put FrC 92 /ccedilla put FrC 93 /section put FrC 123 /eacute put FrC 124 /ugrave put FrC 125 /egrave put FrC 126 /dieresis put ItC 64 /sterling put ItC 91 /egrave put ItC 92 /eacute put ItC 93 /agrave put ItC 123 /ring put ItC 124 /igrave put ItC 125 /ograve put ItC 126 /ugrave put SwC 64 /eacute put SwC 91 /egrave put SwC 92 /ccedilla put SwC 93 /udieresis put SwC 123 /odieresis put SwC 124 /ugrave put SwC 125 /adieresis put SwC 126 /agrave put SpC 91 /Ntilde put SpC 92 /ccedilla put SpC 93 /questiondown put SpC 123 /ntilde put SpC 124 /sterling put SpC 125 /exclamdown put SpC 126 /dieresis put UkC 124 /sterling put DaC 91 /AE put DaC 92 /Oslash put DaC 93 /Aring put DaC 123 /ae put DaC 124 /oslash put DaC 125 /aring put SeC 91 /Adieresis put SeC 92 /Odieresis put SeC 93 /Aring put SeC 123 /adieresis put SeC 124 /odieresis put SeC 125 /aring put 
  136.